home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / DFRDF.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  2KB  |  77 lines

  1. ;   TIM - DEMO        0.5    DFRDF
  2. ;
  3. ;****************************************************
  4. #define DfrdFFT             1190
  5. #define DfrdFractals        1260
  6.  
  7. parms
  8.  int windis = 16
  9.  file timdemo = "dummy"
  10.  int hmode
  11. endparms
  12. int choice
  13. int autorun = 0
  14. int err
  15. repeat          ;repeat ... until
  16. if autorun == 0
  17.  cls
  18.  print @8 @i "      <<TIM>> DEMO          FREE RUNNING DEMO'S       " @n
  19.  print @8 @i " For these demo's an 80X87 coprocessor is recommended " @n @r
  20.  print @8 "To the previous menu  . . . . . . . . . . . . . . . . .0", @r
  21.  print @8 "FFT - noise filtering in the Fourier domain . . . . . .1"
  22.  print @8 "MANDELBROT - creates fractal images . . . . . . . . . .2"
  23.  print @8 "GEOM - coordinate tramnsformations  . . . . . . . . . .3" @r
  24.  print @8 "AUTORUN    - run all demo's continuously . . . . . . . 4" @r
  25.  choice = "        Enter your choice . . . . . . . . . . . . . . . . .   "
  26. else
  27.   choice = ((choice % 4) + 1)
  28. endif
  29.  
  30.  cls
  31.  zoom 0
  32.  /init
  33.  dest p
  34.  switch choice
  35.    case 1
  36.      help timdemo DfrdFFT, hmode
  37.      *dfft  windis timdemo
  38.  
  39.    case 2
  40.      help timdemo DfrdFractals, hmode
  41.      dest p
  42.      show p
  43.      zoom 1
  44.      err = chk lut 2 1 6 6
  45.      mand -1.22681  0.16623  0.00195  2.0
  46.      if  windis > 0
  47.        lut 3 1 6 6
  48.        copy p h
  49.      endif
  50.  
  51.   case 3
  52.     *dct windis 
  53.   case 4
  54.     autorun = 1
  55.  endsw
  56.  call waitres
  57. until choice == 0
  58.  
  59. stop
  60.  
  61. ermsg:
  62.   print @r @8 "Image not found."
  63.   wait
  64. return
  65.  
  66.  
  67. waitres:
  68.   if (choice > 0) && (choice < 4)
  69.     if autorun == 0
  70.        pause
  71.        print @z
  72.     else
  73.        wait 5
  74.     endif
  75.   endif
  76.   return
  77.